home *** CD-ROM | disk | FTP | other *** search
/ Business Heaven / Business Heaven.iso / contact / sfs20a / install.fil < prev    next >
Text File  |  1993-04-12  |  4KB  |  166 lines
  1.  
  2. BACKGROUND 63
  3. TELESCOPE OFF
  4.  
  5. WINOPEN 0 2 95
  6. "     Surefire Version S2.0 Installation     "
  7. ""
  8. "         Copyright 1993 Piaf, Inc."
  9. "              (303) 786-8222"
  10. ""
  11. "            (Press Esc to Abort)"
  12.  
  13. TELESCOPE OFF
  14. SHADOW OFF
  15.  
  16. ' Make sure the correct files exist on the 1st disk
  17. EXIST ~0\sfs20a.zip
  18. JUMP.NO FILE_NOT_THERE
  19. EXIST ~0\pkunzip.exe
  20. JUMP.YES START
  21. :FILE_NOT_THERE               ' A file is missing from the 1st disk
  22. WINOPEN 0 11 79
  23. ""
  24. "  The file SFS20A.ZIP or PKUNZIP.EXE  "
  25. "  is missing from Surefire Disk 1"
  26. ""
  27. "     Installation will terminate."
  28. ""
  29. "  Press [Enter]..."
  30. WAIT +18 +7
  31. END
  32.  
  33. :START
  34. DOS 3.1                       ' Check for minimum DOS version
  35. JUMP.YES DOS_VERS_OK
  36. WINOPEN 0 11 79
  37. ""
  38. "  Surefire requires DOS 3.1 or better."
  39. "  This computer has an older version."
  40. ""
  41. "  Installation will terminate."
  42. ""
  43. "  Press [Enter]..."
  44. WAIT +18 +7
  45. END
  46.  
  47. :DOS_VERS_OK
  48. MEMORY 640                    ' Check for enough base memory
  49. JUMP.YES BASE_MEM_OK
  50. WINOPEN 0 11 79
  51. ""
  52. "  Surefire requires 640KB of base memory."
  53. "  This computer has less than 640KB."
  54. ""
  55. "  Installation will terminate."
  56. ""
  57. "  Press [Enter]..."
  58. WAIT +19 +7
  59. END
  60.  
  61. :BASE_MEM_OK
  62. SPACE 2000                     ' Check for enough disk space
  63. '                               Error message displayed by DRIVE
  64. :DEST_DRIVE
  65. DRIVE C 0 11 31 15 32 14 79
  66. PATH \sfshare 0 11 31 15 32 14 79
  67.  
  68. EXIST ~1~2\*.*                ' Check for Destination Directory
  69. JUMP.NO UNPACK                ' Doesn't exist so go to UNPACK
  70.  
  71. WINOPEN 0 11 79
  72. "The directory ~1~2 already exists and contains files!"
  73. ""
  74. "   Installing Surefire in this directory will delete"
  75. "   all files in this directory prior to installing."
  76. ""
  77. "Are you SURE you want to install it here? (Type Y or N)"
  78. BEEP
  79. ASK +57 +6
  80. WINCLOSE
  81. JUMP.NO DEST_DRIVE
  82.  
  83. :UNPACK
  84. ' Delete all files in destination directory
  85. DELETE ~1~2\*.* 0 24 31
  86. DELETE ~1~2\contacts\*.* 0 24 31 
  87.  
  88. ' Copy the files from the first disk to the destination
  89. COPY ~0\sfs20a.zip ~1~2 0 24 31
  90. JUMP.FAIL INSTALL_FAILURE
  91. COPY ~0\pkunzip.exe ~1~2 0 24 31
  92. JUMP.FAIL INSTALL_FAILURE
  93.  
  94. EXIST ~0\sfs20b.zip           ' Check if the 2nd zip file is on the same disk
  95. JUMP.YES COPY_SECOND
  96.  
  97. DISK 2 sfs20b.zip 2 12 31     ' Have the user put the 2nd disk in the drive
  98.  
  99. :COPY_SECOND                  ' Copy 2nd zip file to the destination
  100. COPY ~0\sfs20b.zip ~1~2 0 24 31 
  101. JUMP.FAIL INSTALL_FAILURE
  102.  
  103. SHELL                         ' Unzip the 2 zip file and delete them
  104. "~1~2\pkunzip -do ~1~2\sfs20a.zip ~1~2\"
  105. "del ~1~2\sfs20a.zip" 
  106. "~1~2\pkunzip -o ~1~2\sfs20b.zip ~1~2\"
  107. "del ~1~2\sfs20b.zip"
  108. "del ~1~2\pkunzip.exe"
  109. JUMP.FAIL INSTALL_FAILURE
  110.  
  111. WINOPEN 0 11 31
  112. "Do you want Surefire to be added to your PATH? (Type Y or N)"
  113. ""
  114. "   This allows you to run Surefire at any time without"
  115. "   changing to the surefire directory."
  116. ""
  117. ASK +61 +1
  118. WINCLOSE
  119. JUMP.NO DONE
  120. SET.PATH ~1~2
  121.  
  122. :DONE 
  123. SHADOW ON
  124. WINOPEN 0 11 31
  125. "   INSTALLATION COMPLETED SUCCESSFULLY   "
  126. ""
  127. "      Surefire will now be executed."
  128. ""
  129. "      THANK YOU FOR TRYING SUREFIRE!"
  130. ""
  131. "Press the [Enter] key to continue..."
  132. WAIT +38 +7
  133. WINCLOSE
  134.  
  135. RUN ~1~2\SFINFO
  136.  
  137. :EXIT
  138. END
  139.  
  140. :INSTALL_FAILURE
  141. WINOPEN 0 11 79
  142. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION!"
  143. ""
  144. "Possible reasons:"
  145. "   -- The floppy disk was damaged during shipping."
  146. "   -- Your disk drive is out of alignment."
  147. "   -- The floppy disk was removed prior to completion."
  148. ""
  149. "Press [Enter] to remove incomplete program files."
  150. WAIT +50 +8
  151.  
  152. PROMPT OFF
  153. DELETE ~1~2\*.* 0 0 31
  154. RD ~1~2
  155. PROMPT ON
  156.  
  157. WINCLOSE
  158. WINCLOSE
  159.  
  160. WINOPEN 0 11 31
  161. "PARTIALLY INSTALLED FILES HAVE BEEN DELETED."
  162. ""
  163. "Press [Enter] to Quit."
  164. WAIT +14 +24
  165. END
  166.